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-TITLE CREOR  FORTRAN=CALLABLE CRF INTERFACE ROUTINES 
-IDENT ‘v04-000' 


SRAAAAEAEAAAAAAAAEAAEAAAAAAAAAAAAAAARAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEEEAAEREATEES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, " MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


:@ ® 
*® ® 
*@ ® 
:? ® 
*@ & 
it THIS SOFTWARE. 4$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
is ONLY IN, ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT OR OTHER * 
te COPIES. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
;® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
s® TRANSFERRED. . 
:® os 
;® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
:® CORPORATION. * 
°* ® 
*® ® 
:* 7 
*® ® 
** ® 
® ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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"FACILITY: CROSS REFERENCE PROGRAM 
ABSTRACT: THIS MODULE CONTAINS INTERFACE ROUTINES TO CRF FOR FORTRAN 


So 


ENVIRONMENT: IT IS PART OF A LINKABLE IMAGE. 
AUTHOR: BENN SCHREIT_R, CREATION DATE: 19-SEP-1979 
MODIFIED BY: 
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CGOCCCCOSOCOSSSCSOOOOOOSOOOCOOOOOOOOCoOoOO 


=D ODNAMNE WIN SO ODNAU ES WIN 9 OO NA UE WN @OWOONOUS win 


E 10 
FORTRAN=CALLABLE CRF INTERFACE ROUTINES 15-SEP=1984 23:38:15 VAX/VMS Macro V04- p | 
BPCLARATIONS 2rSEb=1983 $3: 98:48 CRF.SRCICRFOR.MAR; oe 5, 


43 .SBTTL DECLARATIONS , | 
43 ; MACROS: 
“3 SCRFDEF ; DEFINE CRF GLOBALS 


nn - 


OR FORT 
v04-000 LIBSCRF _INS_KEY INSERT A KEY 4-SEP-19 CRF ..SRCICRFOR.MAR; 1 


$8 a .SBTTL LIBSCRF_INS_KEY INSERT A KEY 
; FUNCTIONAL DESCRIPTION: 
$ ; (SEE CRF INSKEY.MAR) 
5 ; CALLING SEQUENCE: 
208 ; ; CALLS #4,LIBSCRF_INS_KEY 
3 33 : INPUT PARAMETERS: 
6 61: CRFSL_IK_CTLTBL(AP) ADDRESS OF THE OUTPUT FORMAT TABLE 
00 6¢ ; CRFSL~1K-KEYADR (AP) ADDRESS OF KEY 
00 63 ; CRF SL~1K-VALADR (AP) ADDRESS OF THE VALUE 
$6 $e 3 CRF SW_IK_VALFLG(AP) ADDRESS OF THE VALUE FLAGS 
$00 66 i-- 
800g 
000 900 68 .PSECT SCODES, EXE, NOWRT 
0000 38 79 .ENTRY LIBSCRF_INS_KEY, *M<> 
7E 108C 3C 000 es MOVZWL @CRFSW_IK VALFLGCAP) , -(SP) ; EXTRACT THE VALUE | FLAGS AND STACK 
0c AC DD 000 7 PUSHL  CRFSL_TK_JALADR(AP) + STACK ADDRESS OF VALUE 
08 AC DD 000 7% PUSHL CRFSL~IK “KEVADRUAP) : STACK KEY ADD RESS. 
04 AC DD 000C #75 PUSHL CRFSL-IK~CTLTBL(AP) : STACK CONTROL TABLE ADDRESS 
0000'cF 04 FB OOOF 7 CALLS #4,W°CRFSINSRTKEY : INSERT KEY 


oo 
So 
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: ALL DONE 
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FUNCTIONAL DESCRIPTION: 

(SEE CREINSREF MAR) 
CALLING SEQUENCE: 

CALLS #5, LIBSCRF_INS_REF 
INPUT PARAMETERS: 
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3 CRFSL_IR_ CTLTBL CAB) ADDRESS OF 
9 CRESL_IR_KEYADR(AP) ADDRESS OF 
) CRESL-IR-REFADRCAP) ADDRESS OF 
9 CRF SW_IR_REFLAG(AP) ADDRESS OF 
3 CRFSB_IR_DEF IND(AP) ADDRESS OF 
; 35 
; 199 -ENTRY LIBSCRF_INS_REF, “M<> 
7 196 MOVZBL @CRFSB_IR_DEFIND(AP) ,-(SP) 
B 10 MOVZWL acre su, IR- prebataee’ + -(SP) 
F 104 PUSHL CRFSL_TR_REFAD 
¢ 105 PUSHL CRFSL ~IRTKEVADR 
106 PUSHL CRFSL_IR CTL TBL CAPD 
8 107 CALLS #5,W*CRESINSRTREF 
D 108 RET 
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-SBTTL \2BSCRF_INS_REF INSERT REFERENCE 
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Ms OUTPUT FORMAT TABLE 


THE REFERENCE Ht lla 
THE REFERENCE FLAGS 
DEF /REF INDICATOR 


ACK He wie 

ACK REFERENCE FLAGS 

ACK ADDRESS OF REFERENCE INDICAT 
ACK ADDRESS OF 

ae CONTROL TABLE ADDRESS 
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Ht ~SBTTL LIBSCRF_OUTPUT OUTPUT THE CROSS REFERENCE LISTING 
11 
113 3 : FUNCTIONAL DESCRIPTION: 
E 115 : (SEE CRFOUT.MAR) 
11% : CALLING SEQUENCE: | 
E i : CALLS  #6,LIBSCRF_OUTPUT | 
E : INPUTS PARAMETERS: | 
— 123: CRFSL_OU_CTLTBL (AP) ADDRESS OF THE OUTPUT FORMAT TABLE | 
i Se CRFSL~OU-LINWID (AP) ADDRESS OF THE LINE WIDTH | 
— 125: CRF$B~OU~PAG1 (AP) ADDRESS OF NUMBER OF LINES ON FIRST PAGE 
Bea § : CRF$B~OU~SUCPAG(AP) ADDRESS OF NUMBER OF LINES ON SUCCESSIVE PAGES 
— 127: CRF$B~OU~PRTIND (AP) ADDRESS OF THE PRINT INDICATOR 
— 128: CRFSK_VALUES | PRINT VALUES 
— 129: CRESK “DEFS_REFS PRINT VALUES, ADEFS_AND REFS 
— 130: CRESK-VALS-REFS PRINT VAL LUE “AND REFS 
— 131: CRF$B_OU_SAVIND(AP) ADDRESS OF THE SAVE/DELETE INDICAT 
[34 ; : CRF SAVE THE CR oF TABLE 
E 33 CRFSK“DELETE DELETE THE CRF TABLE 
O0st 135 3-= | 
0000 60 ; -ENTRY LIBSCRF_OUTPUT, “M<> | 
7E 18 8C 9A 60 139 MOVZBL @CRF$B_OU_SAVIND(AP) ,-(SP) ; STACK SAVE/DELETE INDICATOR | 
7E 14 B8C 9A 0034 140 MOVZBL @CRF$B~OU-PRTIND(AP) .-(SP) : STACK PRINT INDICATOR 
7E 108C 9A 0038 141 MOVZBL @CRF$B~OU- “SUCPAGCAP) | <(SP) > STACK # LINES ON SUCCESSIVE PAGES | 
7E OC BC 9A 003 148 MOVZBL @CRF$B~OU~PAG1 (AP) ,-(SP) > STACK # LINES ON FIRST PAGE 
08 BC ODD 49 14 PUSHL  @CRFSL~OU~LINWID(AP : STACK THE LINE WIDTH 
04 AC DE 0043 144 PUSHL CRF$L_OU ChE TBE KAP) : STACK CONTROL TABLE ADDRESS 
0000'CF 06 FB 0046 145 CALLS #6,W*CRFSOUT : OUTPUT THE CROSS REFERENCE 
04 0048 146 RET 
04C 14 
004€ 148 END 
| 
i 
| 
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table 46-SEP-1984 

CRFSB_IR_DEF IND = 14 
CRFSB_OU_PAG = of 
CRFSB_OU_PRTIND = 
CRFSB_OU_SAVIND = 8 
CRFSB_OU_SUCPAG = 1 
CRESIASRTKEY eeeeenee 8 x 8s 
CRF SINSRTREF eenerere x 
CRE SL IK CTL TBL s . 4 
CRFSL-IK-KEYADR s 8 
CRFSL-IK-VALADR = 000C¢ 
CRFSL_IR_CTLTBL = 4 
CRFSL-IR-KEYADR = 9 8 
CRFSL_IR_REFADR s C 
CRFSL_OU_CTLTBL = 3 3 
CRFSL_OU_LINWID = 00000008 
CRFSOOT geeereee x 02 
CRF SW_IK_VALFLG 9000010 
CRFSW_IR_REFLAG 0000010 
LIBSCRF_INS_KEY 000 ” RG 8 
LIBSCRF_INS_REF 0000015 RG 
LIBSCRF- OUTPUT 000002E RG 0 

ween oerenroeawee sow ea 

! Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 <( 0.) 00 ¢ OO.) NOPIC USR CON ABS~ LCL NOSHR NOEXE 
SABSS 0000000 0.) 01 ¢ +1.) NOPIC USR CON ABS LCL NOSHR’ EXE 
SCODES 000004C ( 76.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 

Qnuneusenseeseneenssnsnent 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization rt} 0:00: 8.98 00:00:00.41 
ommand processing 16 0:00:00.5 0:00: $3 
a See "2 0000-08 0:00:00. 
able sor 00:00. :00:00. 

Pass 2 44 :00: . : 8: 1. 
Symbol table output 4 a :00: . 
Psect synopsis output 3 a :00:00. 
Cross-reference output é :00:00.00 
Assembler run totals 391 31 :00:08.10 


The working set Limit was 1050 pages. 
3968 bytes (8 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table space allocated to hold 46 non-local and 0 local symbols. 
148 source Lines were read in Pass 1, produc ing 22 object records in Pass 2. 
pages of virtual memory were used to define / macros. 
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VAX=-11 Macro Run Statistics 46-SEP-1984 CRF.SR cj? REOR.MAR: 
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! Macro Library statistics ! 


Prensa noan aes $ 


Macro Library name Macros defined 


$55s0un28: Fer 2es2eRa ehh, :2 3 
TorAis ¢ (all Libraries) 4 


99 GETS were required to define 4 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CRFOR/OBJ=0BJ$:CRFOR MSRC$:CRFOR/UPDATE=(ENHS$: CRFOR)+LIB$:CRF/LIB 
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